Option Explicit
'ۭqҲ
Private Sub UserForm_Initialize()
    'ak
    TextBox1.TextAlign = fmTextAlignRight
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    'TưϹj
    With TextBox1
        If Len(.Text) > 0 Then
            If IsNumeric(.Text) Then
                .Value = Format(CLng(.Value), "#,0")
            End If
        End If
    End With
End Sub
